use strict;
use warnings;

use Test::More tests => 2;

use lib qw(lib);
use MLB::Web;

my $expectedUri = 'http://mlb.mlb.com/components/game/year_2008/month_04/day_12/gamesbydate.xml';

my $actual = games_by_date_request({y=>2008,m=>4,d=>12});
is ($actual->method, 'GET', "method");
is ($actual->uri->as_string, $expectedUri, "uri");
